#!/usr/bin/perl
use strict;
use utf8;
use Encode;

my $input;

$input = shift @ARGV || die $!;

open(IN,$input);

binmode(IN, ":encoding(utf-8)");
binmode(STDOUT, ":encoding(utf-8)");

while(my $str = <IN>){
	if($str =~ /(\d+)\/(\d+)\/(\d+)/){
	#if($str =~ /(\d+)\.(\d+)\.(\d+)/){
		print STDOUT "\n\/news\/\n$1\/$2\/$3\n";
	}
	else{	
		print STDOUT $str;
	}
}

close IN;
close OUT;
